simio 15 
inca side 


y 


».. 


CATE 
A 
pos 


. 
RI si 


SELECCION 
- DELOS 
e 


| TT Y V 7 71m 
pa | E O A A 
1 E | E An" 4*40FS 
e o E a 1,110 AI 
¡DN y) Y Wu 0) 0] S 
PARA UNA BUENA CARGA — 0 A ! 
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DEL PROGRAMA EN TU ORDE- | 
NADOR, COMPRUEBE DA 
QUE LA CABEZA DE SU 
PLATINA ESTE 
LIMPIA Y EL a 
AZIMUTH PERFECTAF 
MENTE AJUSTADO. N/A 
.. LIMIPIELA CON EL f 

PRODUCTO /¿ 
SKUA. 


FABRICADO POR 
> > 


A SK] 
y) CHEMICAL s. 


ALICANTE (SPAIN) 


ao 


A E 
A nano da cana acond: 
E A A o O AA 


Deseo E A A Limpiadores de cassettes al precio de 420 Ptas. Unidad. 
Forma de pago: E] Talón O Contrareembolso O Giro postal 
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EDITORIAL 


4 


En los últimos meses ha alcanzado el MSX cotas 
de estimable difusión, hecho que constituye por sí 
mismo motivo más que suficiente para que le 
dedicásemos toda nuestra atencion. Por ello, 
salimos con AMIGOS DEL MSX. 


En el quiosco, veremos, una revista más para el 
usuario, una nueva manera y un distinto enfoque de 
cómo utilizar el MSX. 


Con una simple mirada al sumario, en esta misma 
página, podéis haceros una idea de la trayectoria 
que pretendemos seguir. No obstante, como la 
revista está pensada y hecha para vosotros, sería 
muy interesante que participaseis en ella dando 
vuestra opinión, haciendo todo tipo de 
sugerencias, indicando, en una palabra, cómo 
queréis que sea vuestra revista. 


Esperamos vuestras opiniones. Que os guste y que 
os divirtáis. : 
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EXPLICACION DE LOS PROGRAMAS e | 
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DODOODODO-- 
DODO 


al 3 
OPEN"GRE: 


ereccion ecnd 


ed GoTO2 7o 


COLOR 15,4, 1: SCREEN asa 
GOSUB 520 i : 
: YH=20: e dl id GOSUE s10 UN ac | portes : 
eE FUTSPRITE. (YH, xH) Ci, PO lA e O A A DE O 
PUTSPRITE. 1,4 YH» ed : i 
YH=YH+Vi SN 
35 IF YH>2i00 THEN XxH= 84: YH= =0 | j 
340 A= STICE (CT): 1F A=1 THEN VE=VE+1: LINE (0, 170)=(VE, 176), En EF: Yi= VELO! 
350 TFTA THEN VE HILTINE" VE, 170)=(255,1767,4, BF3VI= v74 di q 
O THEN VE=( LINE (VE, 170)-(255,176)545 BF 
370.B= STRIG(CT). : e 
IF E=:--1 AND EN=0 THEN SA= dd - EN= 1 
IF 
OIE ER He 
IF"SA=1 "AND XH=250 THEN CRA= 1: 
4207 IF xH=>84 THEN EN=037 SA=0: BA 
ZO -1F (YH+16,4XH+16)=1. THEN -GOTO 460 A 
440 .1F 584. AND YH=>240" THEN. .OF=0F+1: RESTORE: VE= 0: GOTO 280 
450 GOTO ZOO | 
460 FOR N=1 TO 10: CIRCLE (YH+4, XH+4) , Ns 63 NEXT N 
FOR N=1T020: YH=YH+5: XH=XH+SIN (NX1O0) 
PUTSPRITE 1, (YH, XH), 8, ZINEXTON 
FOR -I=i- 1013: FOR N=d-FO-9: Au INTIRND (1) K255) + VPOKE 43S2+N, Ar VPOKE. 12544-+N5 AY 
H= YH+Z3 XH=XH+SIN (N/10) ; ; de 
500 NEXT. I¿RUN ¡ i 
s10 EFSET (8B2+11l, 100),15: DRAW "El0D1OL10":¿FAINT (97, 98),15:FOR O=1 TO OF: CIRCLE € 
100+(0X11),95) ¿Sp 1: CIRCLE (100+(0X11),95) 3,1: PAINT O e NEXT O: RET 
DENT 
520 FOR k=1 TO 4 ¿Bs="":FORI= =1T0 3 ¡READ AS: BS=BS+CURS (VAL ("2 H"AR) 01 NEXTESPRIT 
ES- (k)=B$:NEXT- 
5330.LINE (0,50)=(255, 60) ,10, BF 
2540 LINE (0, 100)-(255, 110) ,10,BF 
9590 FUTSPRITE 2, (20,34), 1, 1 
360 FUTSPRITE 1,6 20, 34, 8, 2 
570 PUTSPRITE Da Y 240, 84), 10, 4 : z 
580 “FOR -N=0 TO 255: VPFOFKE eO144+S124N,321 NEXT N 
590..FOR Mind... TO.-8: A=INT<RND(1)X235).:VFOKE.43352:+N, Az NEXT... junco 
600 FOR. N=0 TO 8:A= INT (RND (1) 1255): VFORE 8192+4352+N, A NEXT ON 
610 RETURN i ¿ dl 
¿620 DATAO, O, O, O, O, 0, 0, O, bi, 9D, E, 47 94, EF,90,60, O, 0,0, 0,0, 20,10,D8,D0O, EE, 71, EC, SA 
tl O, T 1, 1376, a 5,3,T, E 1, 0,0,05 O, O. 80, 80, da ZO, O, Os O, On ,80, 0,0,0,0,05 
niFIFS 1; 19% 19, 19,18,1F,19; 495 4 E; c,0,0 ; 
¿ho DATASO, FO4+FO0, 18,539, 184 F8, 58, FB, 98, 98,F8,30, 30 y O, ¡A FF, ES, DF, 2D, D3,F7, DA, Fl, 
974 F 74 D7 y FE, EE, 0,070, FF, 28, ED, DF, ¿¡AD, EB,2B,3C, £E, Els EF, 7D, FA : a 


SAÁ=0 


HEN CT 02807 
Me PHEN-ET 260 


FE,F4, 19, 3, 72, 


AREA 80, Co 


At Se 


h 2) .4 H 
PRINTRL," TIEMPO" ale == 
Y YI=INT(RND(1)78+1)+50:XI=255:6 OE OR O 
YE, INT (AND (1)478+1)+50: XK ¡De 
D=STICK (ET) 


255 THEN 
255 THEN 
, 255. THEN 
T=INT(TIME/90). 
LINE (80, 180)-(80-T,185), 1, BF 
+=75 THEN PR=1: GOTO910 

O THEN 42O 
PRO-THEN 930 a pu 
IF OXI¿X+16 AND XI+16>X AND YIZ2Y+14 AND YI+14*+YTHEN GOTO 820 

IF OXK<X+16 AND XkK+16>X AND YE<Y+14 AND YK+14>YTHEN GOTO 820 

ON. 0 GOTO 590,610,630,840 

IF NA>X AND NAzX+16 AND NE: 140 AND NE<Y+14THEN NA=X+15: NE=Y ELSE GDTO 650 
600 IF NA*+150 AND NA<180 AND NE 160 AND NB<185 THEN 0=2 l 
610 "IF NX3*X AND NX:X+16 AND NY>Y=10 AND NY<Y+14THEN NX=X+15: NY=Y: ELSE GOTD650 
620 IF NX>150 AND NX<185 AND NY >140 AND NY<185 THEN NY=NB-16:NX=NA:0=3 

3O-1F FX3X AND FX2X+16 AND FY>Y-10 AND FY<Y+14THEN FX=X+15: FY=Y 

640 IF FX>150 AND FX:180 AND FY. 2160 AND FY< 185 THEN 0=4 

650 XI=XI-12 

660 XK=XK+1IZ.5 


670 IF D=l THEN Y=Y-4 
680 1F D=2 THEN: Y=Y-41 X=X+4 
670-IF--D=B-THEN.-X=X+4 
700.1F. D=4 THEN. Y=Y+4: X=X+4 
710 1F D=5 THEN Y=Y+4 
720 1 Deb THEN Y=Y+41 X=X-4 
730 16€ D=7 THEN X=X-4 
740 IE CDB THEN Y=Y=41 X=X-=4 


750-PUT-SPRITE2, (X, Y), 14,2 
760 PUT SPRITEO, (NA, NB), 15 

770 PUT SPRITE1, (NX,NY),15 

780 PUT SPRITES, (X1,Y1),15,4 

790 PUT SPRITEAS, (XK,YK),2,4 

800 FUT SPRITEZ, (FX,FY),9 ,3 

810 GOTO 440 

820-BEEF 1: BEEF: BEE: REEF: REEF: TIME=(T+5)x100 

830. GOTO 650 

840 PUT SPRITE 2, (10,200) 

850 FUT SPRITE 3, (30,200) 5 1N=1 

860 1F 12=0 THEN NY=NY-4: NB=NE-45 NX=NX-21 NA=NA=2 
870 FUT UE DEE 

880 -FUT SFRITEO, (NA, NEO, 

890 IF ONB<-20 THEN ados NY=200:12=1+FOR I=1 TO 500 ¿NEXT:GOTO 910 
300 GOTO 860 

910 CLS:BCREEN 1: KEY OFF¿COLOR 1,14,4 

920 1F FR=l THEN 950 o 

930 LOCATE 4,7: FRINT"ENHORABUENA CAMPEON" 

940 1F FR=O0 THEN 960 

930 -LOCATE 4,6: FRINT"LO SIENTO HAS FERDIDO" 

960. LOCATE 2,11: PRINT"OTRA FARTIDA SI 0 NO [S/N3" 
970 At=INEEYS 

980 I=I+1:1F1>13 THEN I=0 

990 VDE (7)=1 

1000 1F A%="5" OR A$="s" THEN CLEAR:GOTO 10 

1010 1F A$="n" OR A$="N" THEN END 

1020 GOTO-970 i 


Cc] 


Aoc 


m7 
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00000000 HL 30 
00000 ; 00000 
rial, 0000 


ANGUINO ARIAS-<0 


1986 | 00000 
00000 


.116D3LBUBSRAODISEMSO, 77D1LECUIBMEA, SIREAUZOLZIDESRACOE 
JLBEMZG, 68BM7Z 2 69RE4UZ9L2AD2ORICIOBM1 17 RS9DSLTSDa 
8UB7L3OR 1RMLO9, 39D71R22U70L.2201BM209, SD7BEMI4E, 3 


LADA EME 
ANA TOS Tb L 
1oBM161,21D897R3 


(150. DRAW"LA4BMG4, 
Ml A a 


DRAW"E 3 ESUTEMOTATTODZ I2D22BM216, 61D2RFZDS6LIPUIR31US BL32U4O" 
PAINT pt E 
FAJINTA 


SANGUINO ARIAS” 1986" 


¿READ AS: ES=ES+CHRS (VAL CUE UFO) A NEXT:SFRITES 


ctra HE ¡READ A$3 B$=B$+CHRS (VAL ("RH "+A: NEXT SERITE 


US 
168) = 


LINE 
LINE 


(O, 
(O, 


DRAW"C12 
DIF2DIFIUTE F 

FATNTC4, 129 
2 LINE (80, 1 


SF2SBM1OZ, P3EBUIE12RIUIEBROF1SEZIRIFIZ 


20), 15, BF 
1, "FUNTOS="3FT 


e GOSUE 7205 
ON SPRITE 6 620 


20, 0,90,80500,E0,890,40 
4020/80, 80/8040 20, 


E EIN DE 
"RINT"PUNTOS CONS 


FO 
Yo) 
cad E 
— El 
E 
O 
E 
5 
yo : 
E 
! ny 


| 


¿0000 

0000 CRUZADA. ocoo 

“0000 pp  C0000o 
*O00000000000000N05O 


e 


7 fa fa 12.2. 2 Lo 00 CT 


Pie spa GOMEZ 


1986 

r BOPO00PONOdOLonnODO 

COLOR. 
LS SCREEN e. : 
140 OPEN"GRE+ "ASH 
¡IO FSET (35 1390) “63 PRINT+1, "CRUZADA" 
160 FOR: Y= 1. T6 1500: NEXT 

“CLOSE! E E 


 SEREEN- 4. | 

o 33 10FRINT"JOTSTICE O CURSOR<J/C)3" 

$=INKEYS 0 

¡IsI+141F1+13 THEN 1=1 

¡UDPT7TETT 
CIF XI MOROS G "O THEN CT=1:G0T0270 

LF X$="E "OR X$="0"-THEN CT=0: 60T0270 

.GOTO.210.. pd 

¡COLOR 15, 4, EENZ,2:G0SUB 610 O A A 

X=116: AAA AA a a 


CA=STICKE (CT) 
TF A 7 THEN 


do in des las 0 Nenas PU mi 
410. 1F q THEN EY= EY+E 
420 1F BY>1%0 THEN By=55: 

105 y Es 


DNA 
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"SFRITE 
¿GOTOS9O- | . E | 
570 1F e q 0-0 T4=Ni PUT SFPRITE 


; a ; Se 


] BATA, Ae 
p o . ¡SIS Ñ 


+ 


SN 
A 
a 
= 
pa 
5 
2 
y e 
> 
= 
= 
== 
—3 
D 
<= 
— 
D 
2d 
e 
=> 
—. 
y 
y 
> 
E 


A E 


| 
| 


: 


p 


176 
(10 


INT AND (102 (223) +32 


og00 
0000 
¿D000 


MA M7, 


11200 GOT 0 5 ENE EE e Led 
¿ronca e a ph A ll ES Apo HE q Da 230 
dia DATA 2 ia Eo pana : : a é : ¡ q 


10 


a 
y 
a 


07 Y 


00: NEX 


ARA PAPA RARARAPAR ABAD. 


a 


yl tilo 


| 


ge 


3 


PTECEADO MT" po 
mo THEN 
"E "THEN 


DD, 


p> 


/ 


DRRRARIS 


RASO 
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e A 


| 


— 


HEN N= 
THEN NI=225+ Nk 


15 THEN 
¿PT=F 


E ] 


A 230 
E o -> 


ZO /FAI 
o. E 


200 RE! 
210 
420 


> l 
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, 3 
E 18 
RAQUETAS £ 
1, 05 —N - 
PE 0s1d: A. IEA: 
-DATOS-PREE AER A — p AE O - - + 
OCATE 1, 10 - ' : 
T DP LINE IN ; 
35 LAPEZA AUR ANA A DERE ES | , 


SSTHEN TA 
OCATE o, a 


Ñ 0 
7 
DEL mac Ar 


AU 
h. 
. 


PRINT"DUIERES JUGAR OTRA VEZ S/N . 


ca: 


j i ¿ 
2,52, 224,224, 224,224, 224 E -224 224,224, 


ES 


“nave espacial que. debe aluni 
: poco carburante. E centro 


LOCATEA de lola Mier de juego: "¿LOCATE ES 
OCATES,-17| F 3 AM moderada CMS LOCATES y": 19: PRINT: e Siperaravaco. 13 
L(INFUTS (1). cl lcd gal | 
70 ENBOELSE THENNES EL: 

ES a | e q me e : 
100 DEFDBLF O 07 3 | 


ar 


130 GOSUBL4O 
140 DIMAY (128) 
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Te 


e 
| 


+1 


y a RETURN A 
760 FO= FG=. qn ¡ GOSUEZOO: 


780 FI=FI+.0 
70. o 


Fl=FI->. 011 GOSUB7 | 

O GOSUETS0: GOSUBBZO: RETURN de | 

860. IFFX> -FSANDFX2PS+Z2OTHENLINE (20, ) (235, 110), 1, BFELSE9ZO| 

870- DRAW"BMSO, 1 PRINTHL, "¡ii ALUNIZASTE NL! 1% : | 
15: GOSUBS6O | 


2880 ce =p T+INT 
320. PLAY"I293 41 4ELBERDERELAE_AFEDGRE 


RETORA 


' a 


900 FORT= iTO | i 
910 SCREENO: GOTO10c | | , Q 
920 PUTSFRITEL, (FX, EY) bs 1 | | 
230 LINE(2Oy1Ó07=(235,110),1, BF de + | ] 
$40 DRAW'EM40 2 PRENTHL "DESTROZA PANA E A . A 
O NO (3O0=CR)X5 GOSUBSO. loco projet las e 
260 PLAY "O2L8EL7AL6GLSFLAEL3DL2C" | | | 


970 FORT=1T 00: NE 20 


Md. 


7664 TT CASSETTE" | 
1060 CLOAD- O 


e 
o a 
Y. DAA EA. 


10 REM. 1985. BY. EN ae LX. | OR 


| 20 €oLok 15, 4, 41 SCREEN. O: EDT Ec! 
24 LOCATE Dan : 
22 LOCATE Ha ¡PRINTUESte. programa SjuetaTuna mise” de ¿puntos ES una recta por 
cuadrados. Tambin F senta en a di otros” atos de 4 má 


mtodo de esminim 


O rejas mn A 


co | —ficientes as  correlac 


a fa io 


25 PRINT"varianzas desviaciones. típicas; E 

ión, | etc." | E e : : 

7 | | 

— ¡AA HA A AX e O PS ss rm 20. , 
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— ITA : BEE 2: : : 


Pulsa una tecla para comenzar " 
¿THEN CZO:ELSE CTLS 


"NUMERO. DE PUNTOS: "5 NF"DIMX (NE), Y (NE), Z (NE) 

: 1TONF: INPUT"X="3 X(1)3 INPUT"Y="3 Y (1) ¿NÉXTI 

' EX=0+FORI=1TONF: EX=EX+X (1): NEXTI:EX=EX/NF 

¿FOR1=1TONF 3 EY=EY+Y (1): NEXTI:EY=EY/NP 

AUR (HONP DAD ZA ODO EX) X (XI) EX) :NEXTI 1: DX2=DX2/NF 
¡ EDY2F(Y (IO SEYIOR OY CIO =EW) 3: NEXTI:DY2=DY2/NF" 

100 FXY=0:FORI= 1 TONP= FXY= EXY+X CIA Y CD NEXTI: Fxw= FXY/NF 

E A=(FXY-EXKXEY)/DX2:B= JE EXA 


CR=A1CC= 0EXY- EXXEY) /SOR (D» 


5 DX2 


I="¡FXYiLOCATEC 
140 LOCATEO, 5: 
¿LOCATEO, TiPRINT"Y="+STRE (A) +"X"+S8$: LOCATEO, 8 
150 LOCATEO, 9: FRINTCRELOCATEO, 10: FRINT"COEFI 
RINTCC:LOCATEO, 12: FRINT"RAZON-DE-CORRELACION="*LOCATEO: :PRINTRO 
160 _LOCATEO, 16: FRINT"FULSA.TECLA.FARA. GRAFICA." 18: PRINT"LA 
_ANECERA EN": LOCATEO, 19: FRINT"FANTALLA HASTA QUE FULSES":LOCATEO, 20: PRINT"TECLA. 


INT"COEFICIENTE DE ha 


UBZSO: MX=MA1 FOR1=1TONF:X (1)=Z (1)x255/MX: NEXTI 


URS3O: MY=MA1FORI=14 TONF: Y (Dz 1 90/MY5 NEXTI 
190 G$=INKEYS: 1AG%= GOTO. 170 
200. SCREENZ 


MY sil 

220 FORI=1TONF:FSET(X (CD), 190-Y(1)), 1: NEXTI 

230 FORI=OTO23G6: X=1x2395/MX3 1F (X20) OR (X*256)G0T0260 

240 Y=1 90 CAXI+B)X190/MY2 1F (Y20) OR (Y2190)G0TO 260 

30. FSET(X, 2,13 

260 NEXTI 

270 Gó6=INKEYS1 1FG$=""GOTO 270 EN 
¿80 SCREENO: LOCATEO, 10: PRINT"FULSA O FARA OTRO. ":LOCATEO, 121 PRINT"FULSA F FARA F 
INAL.IZAR. | 
290-G$=INHEYS: IFG$=""THENGOTO 290ELSEIFG$="0"DRG$="0"THENRUNELSE IFG$="F"ORG$="4" 
THENGOTO3FS8OELSEGOTO.-290- bu 
500. S$=STR$ (2): 1F7Z>5 > =OTHENSS=""+"+MIDE(STRS (2), 2) 

210 RETURN 

320 MIN=0: FORI=1TONF* 1FZ (1) +MINGOTO 340 

230 MIN=Z CI) A A 

340" NEXTI2: RETURN 
290-MA=0:FORI=1TONF=:1IFZ(10<MAGOTO 370 

260 .MA=Z (1) 

270 NEXTI2: RETURN 

280 CLS:LOCATE4,10s PRINT"FARA EL SIGUIENTE FROGRAMA" 
390 LOCATEA4, 12: PRINT"PULSA FLAY EN EL CASSETTE" 

400 de 


mM 


cenar 


É 
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NT"VAREY]="5DY2:LOCATEO, b: PRINT"RECTA. DE REGRESION (Y SOBRE 31] 


170 FORI= -1TONF: Z()=X (1): NEXT 1: GOSUBI20: NX=MIN:FORI=1TONF: A TAS Os 


180-FORI=1TONPEZ CIO Y CD) NEXTITGOSUET2O+NY=MINTFORT= 1TONP: AITANA ;NEXTI: G0S 


210 LINE (-NXx2339/MX, 0) — (— NXkK255/MX, 190), 1: LINE. (0, 190+NYx170/MVY)-— (2354 170+4NYK190/. 


CLS: LOCA a Í PRI ] . F INT"ELXY. 


GRAFICA al 


¿ 


IM pedo a E | 
AO ARA TRUNO NA A A El mo ME la 
DOKREDEF INICIONKAK 5 | | | ua nn 


FA DE UN xxx ll | a +6 | | 
CARACTER AA SUERO AREA OA mo: 
ut60 alado ends de la de dl ? A o : ey 
80 -SCREEN -1+Kt e | 

 TAbLO=hOS 


DIREC= TABLATAB C(CARACTERS)x8 ad 1 ME 
O "FOR XEDIREC "TO DIRED+7 pa A y 7 ra | | 
READ H bo i ; ¿ : : ; i E pe j : Ep jo pe 
VEOKE Xy H : . prliaacnas] 
NEXT 00 de. a 
LOCATE 14,10: FRINT"Y" 
'DÁTA 24/60,90,126,60,24, 231,153 
4180 GOTO 180 i pen 
: O LU OS , : 
004. FRUEBA-A sus 
24d A LA..LINEA.85 
7 VPOKES480, ASC (CARACTERS) e dee E 
"VERAS QUE HACE LO MISMO e 


Caro: | e | qe . 
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A TR z dá de o . ES ar de : 


cl 
¡ 
ho 


yy y 


JE 


-COLL-2000 


10” *0000000000000000000 
A O 0000 
ZO..." 0DOO. COLL-2000 0000 
40 *0D0O 0000 
50 * O0DODODO000000000000 
70 "LUIS SANGUINO ARIAS 
aa Sis ia 
TO MA 1986 
100. * D0D0000000000dO0000. 
llo? o 
120 
130 
140 j ps 
150 sl "dk. SP EOLLZOOO" El 
160 z 
170 
180 


Os PRINT"JOTSTICH O CURSORII/CA" 


Xx R 3 THEN. ÉT=11 GOTOZ 7Ó 
X$="0" THEN ET=O: GOTO270 


DIF X$="C" 
260 GOTO só” 
270 COLOR ls 10,1 

Ny 2 FOR 1 TO 4 BS ML FORI=1 70-32 4 READ-A$1 B9=E$+CHRS4Y AL" H"+A0$ 
(E)=BS1 NEXT ca 


=10 
ON SPRITE GOSUB 680 


TITI SE 2 y add JITTTTD sn JJ 


1)x50):R==R 


400 
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lO PUTSPRITE) St. : 
JO PUTSPRITE 6, (183,160),12,. E A 
PUTSPRITE 7 a al e 0 E 

> FUT. SPRITES, (XB, YE),1,6 


510 Por SEBITES, y KE, VE) 1761 
EA po 520 G0TO-370 Du E A 


570 IF D=1 THEN Ys 
580 1F D=5 THEN Y =(Y42) MOD 192 a e 
590-IE-V22=Y—2-AND-Y26Y+2 -—AND DE=O- THEN” GOSUB" 760 — 
600. IF. X 56 THEN. GOSUB 700 a e 5] 
610 IF XEZ¿O THEN GOSUB 700 
620 1F DE=1 THEN XE=XE-10 
0630 IF DI=1 THEN XB=XE+9: GOTO 650 
odo E STRIG(CTI=-1 THEN BEEF: SPRITE ON: GOSUB 660. 
6507 RETURN EN 

660 YB=Y+6:XB=371 DI= 1 

670. RETURN 

2680 1F XE200 THEN EU= FU+- DO 

690 IF XE¿40 THEN 790 

700 1F Di=1 THEN YE=209: Di=6: XB=-10 

710 IF DE=1 THEN YE=209:DE=0: XE=256 

720 LINE (75, 180)=(200,192),10,BF 

73O-SERITE-0FF : E 

740 FSET. (80,180), 10:PRINTH1, "FUNTOS="3PU 

730 RETURN 

760 DE=1: XE=217; Es :Y2+b 

770 SPRITE ON 

780 RETURN 

790 COLOR 15,13, 13 SCREEN-1 

-B800-LOCATE 9,107 FRINTUR.I.P" 
810 LOCATE 6, 15: FRINT"FUNTOS="3 FU 

¿820 LOCATE 4,20: FRINT"OTRA FARTIDA S/N" 

830 X$= INKEYS 
| 840 IF X$="S"" OR X$="s" THEN CLEAR:GOTO 10 
E “B5S0 IFE CX$="n" OR Xs$="N" THEN END 
| 860 GOTO 830 
a70..DATA..1E,3E,10,18,4,E, 1,1, 1E,1E,0,A,2,9,2;D,0,0,0,0,0,0,18,E0, 010,01 0,0,0,0 
:80,1,3,3,7,71713413,18,1F,3,3,B,7,3,1,80,C0,C0,CC,DC,F8,F0,E0,80,90,B0,E0,C00,80 
,890,0 E 
880 DATA 0,0,0,0,0,0, 18, 7,0,0,0,0,0,0,0, 1 
890 DATA 78,FC,58,58,20,70, e 78, 58, 78,30,50, 90, 90,90, B0 
900-DATA-143,3,33,3B y 1FF,751,95D; TS ETErO 
910 DATA 80,C0,CO, EO,É0,E0, co, ca, C8, FB, Co, Co,DO,EO,CO0,80 | 
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K 


Y) ETHAN JIJOJSO FIAT A AS 


GIIA 


A 


30 


10 


TO) 
40 
0 
60 
ZO 
30 


100 
110 
120 
LO 
146 
1590 
160 
170 


COMUN 


*D000000000000000000 


0000. .FLYMAN ... 0000 
* 0000. 0000 
" DODODOOOVODODO00000 


“[UIS” SANGU INC ARTAS 


1986 
*0000000000000000000 
COLOR 1,10,% 
SCREEN 
DFENYGRES "ÁASHt1 
FSET(40,80),6:FRINTH1, "FLYMAN" 
FOR-Y=1d-TO-1500+-NEXT : 
CLOSE 
COLOR 1,14 
DORA dos FRINT"JOTSTICKE 0 CURSORIJ/C3" 
X$=INHEYSG > 
I=1+111F1:13 THEN I=1 
VDE (7) =1 
IF O X$="J"OR X$="3" THEN CT=1:G0TOZ270 
IF O X$="c"OR X$="0" THEN CT=0: 60T0270 
GOTO 2160 
KEY OFF1X=100:3Y=170:Z=4:F=240% 0=107R=07N=63 T/=079%=0 
COLOR1, 5. 1:SCREEN-2,2 
LINECO, 191)-(255,181),3,BF 
S$=""¿FOR Y=1 TO 8:READ D:5$=5$+CHR$(D): NEXT Y: SPRITES (1)=S$ 
E$="":¿FORI=1TO 32 ¿READ A$: B$=B$+CHR$ (VAL ("2H "+04)): NEXT: SPRITES (2)=B% 
DOFEN "grp" FOR OUTFUT AS+1 
CIRCLE (23,23),25, 15:FAINT (25,25),15 
LINE: (0,1710-(255,171),11 
LINE (04171)-(50,43),11:LINE (50, 43-123, 536) 11 LINE-(123,56)-(6169,169),11:L 
(169,169) (184,101), 11: L-TME-(184,101)—(6207.2 30.411: LINE (207,,23)-(255, 156), 11 
FAINT (100,100), 11 : 
STRIG(ET) ON 
ON STRIG GOSUB 590 
FSET (100,173): PRINTH1, "TIEMPO "> 
S=STICEH(CT) 
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20 THEN P=255+u* (1 
50 THEN x$="EL. HOMBRE= 
) THEN Q=10:P=240:R=0: 


my ESCAF DO. dad SOSUB. 640. 


380 GOTO. 400 | 
A A =R+103 LINE e 
600 a + A pusál peris 
lO = E AND. XLP+1O AND. Y20- AND Y< Q+16-THEN- lsy= =S/+14 TU=1+ RETURN 
620. 1F Ree _THEN: Xs=" TU. TIEM O. HA TERMINADO": ¡GOSUB. 640 A 
630 RETURN. MI 
(640 SCREEN O: LOCATE S, 5: PRINTXG 
650 LOCATE 5,10: PRINT "PUNTOS OBTENIDOS "¿8% 
660 PRINT "QUIERES VOLVER—A JUGAR? (S/N) " 
670 FS=INKEYS$:1F Fé$="S" OR-F$="s"THEN RUN 
680.1 Fé="n". OR.Fs="N" THEN.END- 
690 GOT0670 00 50 PY 
700 


53, 181), 15, BF 


E 


| 


| SI PREFIERE SUSCRIBIRSE a 
POR_ TELEFONO... a 
4 
: 
4 
3 


... 9 TIENES 
UN MSX, 


ESTAS SON 
TUS REVISTAS 


LLAMAN 
DO A 


(91) 266 66 01 
(91) 266 66 02 
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Para Programadores MSX 
tu fiel compañero. 


Esto no es un libro para el 
principiante novato, al con- 
trario, introduce al progra- 
mador MSX “dentro” del or- 
denador, para mostrarle exac- 
tamente como funciona y co- 
mo obtener el máximo partido. 


Los autores han dividido 
su libro en dos partes. 


La primera parte cubre el 
diseño del sistema, como el 
vocabulario de BASIC se rela- 
ciona con los ordenadores 
MSX, y una introducción có- 
digo máquina. Encontrará ex- 
plicaciones detalladas sobre la 
organización de la memoria, 
los modos de pantalla y los 
circuitos de vide y sonido. AS : á 

La segunda parte se dedica GUIA DEL PROS ADORNO 
al uso del lenguaje ensam- , , : 
blador en el sistema MSX. Los princip 
puntos: 


— El procesador de pantalla de vídeo. 
— El circuito de sonido AY-3-8910. 
— Entradas/Salidas. 

Tanto si necesitas escribir programas de alta eficacia o 
solamente quieres como trabaja tu ordenador, este libro será 
inestimable. Pensamos que rapidamente se convertirá en el 
texto base para aquellos programadores que quieren hacer 
algo más que escribir programas en BASIC. 

P.V.P. 1800 pts! 


ales apartados incluyen los 


Domicilio de envíos: 


Nombre y apellidos 
Domicilio 


Número | Cantidad 


BIBLIOGRAFIA 


TARJETA DE PEDIDO [ [| | | | I [-] 


Ruego sírvanse remitirme CONTRA REEMBOLSO los siguientes libros: 
TITULO Y AUTOR 


Fdo.: 


PROGRAMACION 
CODIGO MAQUINA nO 

La llegada de standar MSX, 
marca un paso significativo 
dentro del mundo de los or- 
denadores domésticos. Ofre- 
ce infinidad de excitantes 
oportunidades para progra- 
madores y usuarios. 

Este libro, supone que no 
tienes conocimientos previos 
sobre código máquina. Em- 
explicando las equivalentes 
en código máquina, de las 
principales instrucciones en 
Basic, tales como IF, FOR/ 
NEXT, PRINT, GOTO, GOSUB, 
etc... Continúa con la descrip- 
ción muy detallada de las ru- 
tinas individuales de un sim- 
ple juego: “INVASOR DEL 
ESPACIO”, y cómo se enlazan 
estas rutinas que puedes 
aprovechar en tus programas . 
en Basic. E o 

e Aprende lo fácil que es incorporar rutinas en codigo 
máquina dentro de tus programas en Basic. 

e Usa el código máquina para crear sonido y gráficos. 

e Diseña tus propios caracteres y “escenarios” con dos 
programas fáciles de usar. 

Tanto si simplemente desea incluir rutinas para acelerar y 
mejorar tus programas en Basic, como si quieres un programa 
completo y potente en código máquina, encontrarás este 
libro extremadamente útil. En él está suprimida la teoria que 
dificulta el código máquina, y se presenta de una forma 
práctica y divertida de aprenderlo. 

P.V.P. 1.200 pts. 


La mayor variedad de libros de microinformática. 
capaces de satisfacer todas sus necesidades, ya sean 
profesionales, familiares, culturales... 


e Todo tipo de información bibliográfica sobre micro- 
ordenadores, desde AMSTRAD a Sinclair QL 


.. Provincia . 


Chiquinquirá, 28. l.ocai 4 (Cocuy). 28033 MADRID. 
Í Telef.: 764 50 95 


Libros, Revistas, Suscripciones, Importación y 
Distribución 


> o Az AA AA A A A A A Sn MA NN O A rr A e A 
Pe z 


Graphis, S.A. Publicidad 


O O 


DISID 
wm ICY NA 


d 
ae 


El Curso CEAC a Distancia, 
BASIC + Microordenadores, 
le va a introducir paso 

a paso, con un cuidado ; 
método, en uno de los temas más 3 5X' ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 

apasionantes de nuestros días: . > DEL DECRETO 707/1976 Y ALA ORDEN MINISTERIAL DE 5/2/1979 
la programación de ordenadores. 

Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
especialmente para dar los primeros pasos 
en programación, estará sentando las bases 


1 deseo recibir a la mayor 
brevedad posible información 


= Introducción a 
la Informática 
— Electrónica ¡con experimentos) 
— Contabilidad : 
— Fotografía ) 
. 


ti E A A 


_ — Curso de Video 
— Decoración 


para el estudio de cualquier otro 
lenguaje de alto nivel. 


CENTRO DE ENSEÑANZA A DISTANCIA 


AUTORIZADO POR EL MINISTERIO DE ó a 
EDUCACION Y CIENCIA N.* 8039185 CEAC. Aragón, 472 


(BOLETIN OFICIAL DEL ESTADO 3-6-83) (Dpto. rer. 1-xz ] 08013 Barcelona 
elo . 


Aragón, 472 (DptojREF. T-XZ 08013 Barcelona 
Tel.: (93) 245 33 06 


If sobre el Curso de: 3 
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